home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / daten / db / examples / arexxdemos / date.db < prev    next >
Text File  |  1994-09-18  |  190b  |  12 lines

  1. /* Return today's date in the current field */
  2.  
  3. Options Results
  4.  
  5. ADDRESS COMMAND
  6. 'Date >t:datefile'
  7. ADDRESS
  8. OPEN('file','t:datefile')
  9. str = READLN('file')
  10. CLOSE('file')
  11. PUTFIELD WORD(str,2)
  12.